home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / petc12.zip / PETC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-07-07  |  3KB  |  223 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     String   STRING001
  34.     String   STRING002
  35.     String   TSTRING003(100)
  36.     String   STRING004
  37.     String   STRING005
  38.     String   STRING006
  39.     String   STRING007
  40.     String   STRING008
  41.     String   TSTRING009(100)
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     STRING001 = ""
  46.     STRING002 = ""
  47.     STRING004 = ""
  48.     STRING005 = ""
  49.     STRING006 = ""
  50.     STRING007 = ""
  51.     STRING008 = ""
  52.     INTEGER014 = 0
  53.     FOpen 1, PPEPath() + "petc.cfg", 0, 2
  54.     FGet 1, INTEGER003
  55.     FGet 1, INTEGER004
  56.     FGet 1, INTEGER006
  57.     FGet 1, STRING004
  58.     FGet 1, STRING005
  59.     FGet 1, STRING006
  60.     FGet 1, STRING007
  61.     FGet 1, INTEGER009
  62.     FClose 1
  63.     FOpen 1, PPEPath() + "proms.dat", 0, 2
  64.     For INTEGER001 = 1 To INTEGER003
  65.         FGet 1, TSTRING003(INTEGER001)
  66.     Next
  67.     FClose 1
  68.     Select Case (INTEGER006)
  69.         Case 1
  70.             INTEGER006 = 1 * 1
  71.         Case 2
  72.             INTEGER006 = 1 * 2
  73.         Case 3
  74.             INTEGER006 = 1 * 3
  75.         Case 4
  76.             INTEGER006 = 1 * 4
  77.         Case 5
  78.             INTEGER006 = 1 * 5
  79.     End Select
  80.     If (Upper(STRING004) == "Y") Then
  81.         INTEGER010 = Random(INTEGER003)
  82.         If (INTEGER010 == 0) Then
  83.             INTEGER010 = 1
  84.         Endif
  85.         STRING001 = TSTRING003(INTEGER010)
  86.     Else
  87.         STRING001 = TSTRING003(INTEGER004)
  88.     Endif
  89.     If (GrafMode() == Chr(78)) Then
  90.         Print STRING006 + STRING001 + STRING007
  91.         While (STRING002 <> Chr(13)) Do
  92.             INTEGER011 = INTEGER011 + 1
  93.             If (INTEGER011 == 200) Goto LABEL001
  94.             STRING002 = Inkey()
  95.         EndWhile
  96.     Else
  97.         INTEGER005 = Len(STRING001) / 5
  98.         For INTEGER001 = 1 To INTEGER009
  99.             PrintLn 
  100.         Next
  101.         INTEGER001 = 0
  102.         INTEGER007 = GetX()
  103.         INTEGER008 = GetY()
  104.         If (Exist(PPEPath() + "anim.dat")) Then
  105.             STRING008 = "Y"
  106.             FOpen 3, PPEPath() + "anim.dat", 0, 2
  107.             FGet 3, INTEGER012
  108.             For INTEGER001 = 1 To INTEGER012
  109.                 FGet 3, TSTRING009(INTEGER001)
  110.             Next
  111.             FClose 3
  112.         Endif
  113.         INTEGER001 = 0
  114.         INTEGER002 = INTEGER005 * 5
  115.         INTEGER013 = 0
  116.         If (STRING004 == "Y") Then
  117.             INTEGER014 = Random(100) + 20
  118.             If (INTEGER014 > 50) STRING008 = ""
  119.         Endif
  120.         INTEGER011 = 0
  121.         While (STRING002 <> Chr(13)) Do
  122.             CdChkOn
  123.             INTEGER013 = INTEGER013 + 1
  124.             If (STRING008 == "Y") STRING001 = TSTRING009(INTEGER013)
  125.             INTEGER011 = INTEGER011 + 1
  126.             If (INTEGER011 == 200) Break
  127.             AnsiPos INTEGER007, INTEGER008
  128.             STRING002 = Inkey()
  129.             Print "@POFF@" + STRING005 + STRING006
  130.             If (INTEGER001 == 0) Then
  131.                 Print STRING001
  132.             Endif
  133.             If (INTEGER001 > 0) Then
  134.                 Print Right(STRING001, INTEGER002)
  135.                 Print Left(STRING001, INTEGER001)
  136.             Endif
  137.             If (STRING008 <> "Y") Then
  138.                 INTEGER002 = INTEGER002 - 5
  139.                 INTEGER001 = INTEGER001 + 5
  140.             Endif
  141.             If (INTEGER002 == 0) Then
  142.                 INTEGER002 = INTEGER005 * 5
  143.             Endif
  144.             If (INTEGER001 == INTEGER005 * 5) Then
  145.                 INTEGER001 = 0
  146.             Endif
  147.             Print STRING005 + STRING007
  148.             If (STRING008 == "Y") Then
  149.                 If (INTEGER013 == INTEGER012) INTEGER013 = 0
  150.             Endif
  151.             Delay INTEGER006
  152.         EndWhile
  153.     Endif
  154.     :LABEL001
  155.     KbdStuff Chr(13)
  156.     End
  157.  
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Usage report (before postprocessing)
  161. ;
  162. ; ■ Statements used :
  163. ;
  164. ;    1       End
  165. ;    34      Goto 
  166. ;    45      Let 
  167. ;    6       Print 
  168. ;    1       PrintLn 
  169. ;    26      If 
  170. ;    3       FOpen 
  171. ;    3       FClose 
  172. ;    11      FGet 
  173. ;    1       CdChkOn
  174. ;    1       Delay 
  175. ;    1       KbdStuff 
  176. ;    1       AnsiPos 
  177. ;
  178. ;
  179. ; ■ Functions used :
  180. ;
  181. ;    8       *
  182. ;    1       /
  183. ;    17      +
  184. ;    1       -
  185. ;    17      ==
  186. ;    3       <>
  187. ;    3       <
  188. ;    3       <=
  189. ;    2       >
  190. ;    6       >=
  191. ;    21      !
  192. ;    6       &&
  193. ;    3       ||
  194. ;    1       Len(
  195. ;    1       Upper()
  196. ;    1       Left()
  197. ;    1       Right()
  198. ;    4       Chr()
  199. ;    2       Random()
  200. ;    2       Inkey()
  201. ;    4       PPEPath()
  202. ;    1       Exist()
  203. ;    1       GetX()
  204. ;    1       GetY()
  205. ;    1       GrafMode()
  206. ;
  207. ;------------------------------------------------------------------------------
  208. ;
  209. ; Analysis flags : No flag
  210. ;
  211. ;------------------------------------------------------------------------------
  212. ;
  213. ; Postprocessing report
  214. ;
  215. ;    3       For/Next
  216. ;    2       While/EndWhile
  217. ;    11      If/Then or If/Then/Else
  218. ;    1       Select Case
  219. ;
  220. ;------------------------------------------------------------------------------
  221. ;                 AEGiS Corp - Break the routines, code against the machines!
  222. ;------------------------------------------------------------------------------
  223.